Persistent Variables

VBScript 1.1.0

This example demonstrates how to make use of Persistent Variables in an ASP (Active Server Page) web page.

You will find it in the download package in the following folder

\examples\External\asp

This little web page is meant to be used within a WebExtension in a SwyxIt! skin.

It displays the current status of the installed Night Switch example (see chapters A.1 and A2).

By clicking into the web page the status of the night switch will be toggled. The page also refreshes itself every 2 seconds, so if the night switch is getting switched from somewhere else, this page will also automatically shows the new status.

Default.asp

<meta http-equiv="refresh" content="2;url=<%=Request.ServerVariables("SCRIPT_NAME")%>">

<style>
  body.on  { background: #FFFF00; }
  body.off { background: #C0C0C0; }
  a        { padding:    48% 50%; }
</style>

<!-- #include file = "PersistentVariables.inc"-->

<%
	' configure the complete db connect string
	g_sPersistentVariableConnectString = _
		"Provider=sqloledb;" & _
		"Data Source=WS-WELLIGE04;" & _
		"Initial Catalog=" & PERSISTENT_VARIABLE_DATABASE & ";" & _
		"User Id=PersistentVariables;" & _
		"Password=PersistentVariables"

	' initialize persistent variable
	Dim NightSwitch
	Set NightSwitch     = new PersistentVariable
	NightSwitch.Name    = "NightSwitch"
	NightSwitch.Default = 0

	' evaluate url parameter	
	sUrlSwitch = Request.QueryString("switch")
	if (sUrlSwitch <> "") and IsNumeric(sUrlSwitch) then NightSwitch.Value = CInt(sUrlSwitch)

	' set display styles
	if NightSwitch.Value = 0 then
		sStyle  = "off"
		sSwitch = "1"
	else
		sStyle  = "on"
		sSwitch = "0"
	end if

	Set NightSwitch = Nothing

	sURL = Request.ServerVariables("SCRIPT_NAME") & "?switch=" & sSwitch

%>

<body class="<%=sStyle%>">
	<a href="<%=sURL%>"> </a>
</body>

You have to make sure, that the PersistenVariables.inc file is in the same folder as the default.asp file.

Please find a complete explanation of the usage of persistent variables outside of call routing scripts here: